COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	if wide > 36 then
C00004 ENDMK
C⊗;
if wide > 36 then
    begin "bigchar"
    weat ← startingat + 1;
    for therow ← 1 til data_rows do
outstr(cvs(therow)&"++"&cvos(M[weat←weat+1])&crlf);
    weat ← startingat + 1;
    for therow ← 1 til data_rows do
	begin
	itwas ← 0;
	theword ← 0;
	i ← 0;
	j ← 0;
	itbe ← M[weat ← weat + 1];
	while (theword +1) * 24 < wide do
	    begin
 	    for n ←1 til 24 do
		begin
		getbits;
		end;
outstr(cvs(theword)&","&cvs(therow)&"|"&cvos(glyph[theword,therow])&crlf);
	    theword ← theword + 1;
	    if j mod 36 = 0 then itbe ← M[weat ← weat + 1];
	    end;
	for n ← (theword * 24) +1 til wide do
	    begin
	    getbits;
	    end;
	n ← 2 *((theword + 1) * 24 - wide);
	glyph[theword,therow] ← glyph[theword,therow] lsh n;
outstr(cvs(theword)&","&cvs(therow)&"|"&cvos(glyph[theword,therow])&crlf);
	glyph[theword+1,therow] ← 0;
	end;
    end "bigchar"